Technotools/Technotools (Chestnut CD-ROM)(1993).ISO/database/do1beta/recall.do

Text File | 1991-07-16 | 201b | 12 lines

/*
    test the "delete" and "recall" methods on a DBASE file
*/
db = new(Dbffile,"patient");
top(db);
? deleted(db);
? delete(db,1L);
? deleted(db);
? recall(db,1L);
? deleted(db);
close(db);